home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Lengths / sub-divide-rhythm < prev   
Text File  |  1998-10-22  |  1KB  |  29 lines
  1. sub-divide-rhythm 
  2. div min max length-list &key (seed nil) (type :list) (pcnt 100) (groups '(2 3)) (to-pcnt nil)
  3.  
  4. subdivides a rhythm into groups (which defaults to '(2 3))
  5. of div which can be an atom or a list of ratios.
  6. lengths smaller or equal min or larger or equal max will not be affected. 
  7. For usage of pcnt and to-pcnt see rhythm-ornament which
  8. uses the same keys. 
  9. div must be smaller than min divided by group to be able
  10. to make the divisions.
  11. you cant divide 1/4-note with 3 1/2-notes.  
  12. types are :list or :flat which just flattens the lists.
  13.  
  14.  
  15. (sub-divide-rhythm '1/8 '1/2  '1/1. 
  16.    '(1/1 1/4 1/2 7/8 3/8 5/16 9/8 5/4 3/32) :seed 0.23    :groups '(2 3) :pcnt 100 :type :list)
  17. ->((2/8 2/8 2/8 2/8) 1/4 1/2 (2/8 2/8 3/8) 3/8 5/16 
  18. (2/8 2/8 2/8 3/8) (2/8 2/8 2/8 2/8 2/8) 3/32)
  19.  
  20. (sub-divide-rhythm '1/8 '1/2  '1/1. 
  21.    '(1/1 1/4 1/2 7/8 3/8 5/16 9/8 5/4 3/32) :seed 0.23    :groups '(2 3) :pcnt 100 :type :flat)
  22. ->(2/8 2/8 2/8 2/8 1/4 1/2 2/8 2/8 3/8 3/8 5/16 2/8 2/8 2/8 3/8 2/8 2/8 2/8 2/8 2/8 3/32)
  23.  
  24. (sub-divide-rhythm '(1/16 1/12) '(1/2 3/4)  '(1/1. 1/1..) 
  25.    '(1/1 1/4 1/2 7/8 3/8 5/16 9/8 5/4 3/32) :seed 0.23    :groups '(2 4) :pcnt 20 :to-pcnt 100)
  26. ->(1/1 1/4 1/2 (2/12 2/12 3/12 7/2/12) 3/8 5/16 
  27. (2/16 2/16 3/16 3/16 4/16 4/16) 
  28. (2/12 2/12 3/12 3/12 2/12 3/12) 3/32)
  29.